﻿Imports System
Imports System.Collections.Generic
Imports System.Linq
Imports System.Text
Imports System.Windows
Imports System.Windows.Controls
Imports System.Windows.Data
Imports System.Windows.Documents
Imports System.Windows.Input
Imports System.Windows.Media
Imports System.Windows.Media.Imaging
Imports System.Windows.Navigation
Imports System.Windows.Shapes
Class MainWindow
    Private Sub MainWindow_Initialized(sender As Object, e As System.EventArgs) Handles Me.Initialized
        Dim Core As New Core
        ContentFrame.Content = Core
    End Sub

    Private Sub TopBar_MouseLeftButtonDown(sender As System.Object, e As System.Windows.Input.MouseButtonEventArgs)
        DragMove()
    End Sub

    Private Sub ActivateWin_MouseLeftButtonDown(sender As Object, e As System.Windows.Input.MouseButtonEventArgs) Handles ActivateWin.MouseLeftButtonDown
        Dim ActivateWin As New Home
        ContentFrame.Content = ActivateWin
    End Sub

    Private Sub ThemeElements_MouseLeftButtonDown(sender As Object, e As System.Windows.Input.MouseButtonEventArgs) Handles ThemeElements.MouseLeftButtonDown
        Dim Core As New Core
        ContentFrame.Content = Core
    End Sub

    Private Sub General_MouseLeftButtonDown(ByVal sender As System.Object, ByVal e As System.Windows.Input.MouseButtonEventArgs)
        Dim General As New general
        ContentFrame.Content = General
    End Sub
End Class
